home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / docs / lionkad.lha / LionKingHardDriveInstall.lha / Install / Lion King Install < prev    next >
Encoding:
Text File  |  1994-12-26  |  2.2 KB  |  98 lines
  1. ; $VER: Lion King HD Install-Script V1.0 (30.12.94) by Roland for Sentinel
  2.  
  3. (set GameDir "Lion King")
  4. (set TotalDisks 4)
  5. (set CurrentDisk 0)
  6. (set Percent 20)
  7. (set DiskPercent (/ (- 100 Percent) TotalDisks))
  8. (set keuze 0)
  9.  
  10. ;try to figure out a place where the user usually installs his games
  11. (if (exists "Games:" (noreq) )
  12.     (set @default-dest "Games:")
  13.     (if (exists "SYS:Games" (noreq) )
  14.         (set @default-dest "SYS:Games")
  15.         (if (exists "Work:Games" (noreq) )
  16.             (set @default-dest "Work:Games")
  17.             (set @default-dest "SYS:")
  18.         )
  19.     )
  20. )
  21.  
  22. ;ask the user to select a directory to install the game into
  23. (set default-dest
  24.      (tackon (askdir (prompt "Where would you like " @app-name " installed?\n"
  25.                              "A drawer called " GameDir " will be created.")
  26.                      (help @askdir-help)
  27.                      (default @default-dest)
  28.                      (newpath)
  29.              )
  30.      GameDir
  31.      )
  32. )
  33. (set @default-dest default-dest)
  34. (complete 5)
  35.  
  36. ;create the selected directory
  37. (makedir @default-dest
  38.          (infos)
  39. )
  40. (complete 10)
  41.  
  42. (working "\n\n\n\n\n\n\n\nCall one of our boards:\n\n"
  43.          "Neon City:    +31 (0)478012733\n"
  44.          "              +31 (0)478014014\n"
  45.          "Dream Scape:  +31 (0)52552372 \n"
  46.          "State Dreams: +31 (0)204208053\n"
  47. )
  48.  
  49. ;copy all extra files to this directory
  50. (copyfiles (source "Lion King")
  51.            (dest @default-dest)
  52. )
  53. (copyfiles (source "Lion King.icon")
  54.            (dest @default-dest)
  55.            (newname "Lion King.info")
  56. )
  57.  
  58. (complete 20)
  59.  
  60. (message "\n\n\n\n\n\nPlease insert Lion King disk 1 in drive DF0:"
  61. )
  62.  
  63. (copyfiles (source "DF0:")
  64.            (dest @default-dest)
  65.            (choices "LEVEL1" "LION")
  66. )
  67.  
  68. (complete 40)
  69.  
  70. (message "\n\n\n\n\n\n\Please insert Lion King disk 2 in drive DF0:"
  71. )
  72.  
  73. (copyfiles (source "DF0:")
  74.            (dest @default-dest)
  75.            (all)
  76. )
  77.  
  78. (complete 60)
  79.  
  80. (message "\n\n\n\n\n\nPlease insert Lion King disk 3 in drive DF0:"
  81. )
  82.  
  83. (copyfiles (source "DF0:")
  84.            (dest @default-dest)
  85.            (all)
  86. )
  87. (complete 80)
  88.  
  89. (message "\n\n\n\n\n\nPlease insert Lion King disk 4 in drive DF0:"
  90. )
  91.  
  92. (copyfiles (source "DF0:")
  93.            (dest @default-dest)
  94.            (all)
  95. )
  96.  
  97. (complete 100)
  98.